(ecomplete-add-item): In Emacs, use float-time.

diff --git a/lisp/gnus/ecomplete.el b/lisp/gnus/ecomplete.el
index fd9dfa63b6d1593cc7c2a0991c5b7868d6b43546..c2a22e3230c2e952502791f686bdfcf532ed0065 100644 (file)
--- a/lisp/gnus/ecomplete.el
+++ b/lisp/gnus/ecomplete.el
@@ -56,7 +56,9 @@
 (defun ecomplete-add-item (type key text)
   (let ((elems (assq type ecomplete-database))
        (now (string-to-number
-             (format "%.0f" (time-to-seconds (current-time)))))
+             (format "%.0f" (if (featurep 'xemacs)
+                                (time-to-seconds (current-time))
+                              (float-time)))))
        entry)
     (unless elems
       (push (setq elems (list type)) ecomplete-database))